LEX    'EXTFILES'
       TITLE  External files for HP SERIES 40-70-80
       ID     #35
       MSG    0
       POLL   POLHND
       ENDTXT
************************
DLEXcn EQU #000FF
EXTDcn EQU #0E004
BPGMcn EQU #0E008
GRAFcn EQU #0E00C
DATAcn EQU #0E010
ASSMcn EQU #0E014
PROGcn EQU #0E020
WAcon  EQU #0E040
KYcon  EQU #0E050
STcon  EQU #0E060
MLcon  EQU #0E070
PRcon  EQU #0E080
TXTcon EQU #0E052
APTcon EQU #0E053
DBFcon EQU #0E058
BAScon EQU #0E088
LEXcon EQU #0E089
VSCcon EQU #0E08A
ROMcon EQU #0E08B
FTHfil EQU #0E218
ROMfil EQU #0E21C
APTfil EQU #0E220
DEAfil EQU #0E224
pFTYPE EQU #0002D
**********************************************************
POLHND ?B=0   B
       GOYES  VER0   
       GOTO   FILTYP   
VER0   C=R3            
       D1=C            
       A=R2            
       D1=D1- (Ve)-(Vs)-2
       CD1EX           
       ?C<A   A        
       GOYES  VER1   
       D1=C            
       R3=C            
Vs     LCASC  ' HPext:C'
Ve     DAT1=C (Ve)-(Vs)-2
VER1   RTNSXM          
***********************************************************
*
* Here are the FILE TYPE codes now implemented by the HP71:
*
*            UNPROTECTED   SECURED   PRIVATE   EXECUTE ONLY
*
*     purged      0000      ----      ----      ----
*     TEXT        0001      E0D1      ----      ----
*     D-LEX       00FF      ----      ----      ----
*     EXTD8       E004      E005      E006      E007
*     BPGM8       E008      E009      E00A      E00B
*     GRAF8       E00C      E00D      E00E      E00F
*     DATA8       E010      E011      E012      E013
*     ASSM8       E014      E015      E016      E017
*     PROG8       E020      E021      E022      E023
*     WA-41       E040      ----      ----      ----
*     KY-41       E050      ----      ----      ----
*      T-75       E052      ----      ----      ----
*      A-75       E053      ----      ----      ----
*      G-75       E058      ----      ----      ----
*     ST-41       E060      ----      ----      ----
*     ML-41       E070      ----      ----      ----
*     PR-41       E080      ----      ----      ----
*      B-75       E088      ----      ----      ----
*      L-75       E089      ----      ----      ----
*      W-75       E08A      ----      ----      ----
*      R-75       E08B      ----      ----      ----
*     SDATA       E0D0      ----      ----      ----
*     DATA        E0F0      E0F1      ----      ----
*     BIN         E204      E205      E206      E207
*     LEX         E208      E209      E20A      E20B
*     KEY         E20C      E20D      ----      ----
*     BASIC       E214      E215      E216      E217
*     FORTH       E218      E219      ----      ----
*     ROM         E21C      E21D      E21E      E21F
*     APPT        E220      E221      ----      ----
*     DEA         E224      E225      E226      E227
*
*     -----------------     -------------------------------
*     | DA-41 = SDATA |     | AS-41 = I-75 = ASCI8 = TEXT |
*     -----------------     -------------------------------
*
***********************************************************